* NAME: (PAL-AP) DOC. 70180311OO0 RF\/. H ORDER M- 1051 PAGF 

0001 * NAME: (PAL-AP) DOC* 7018031l0n0 rfv. H 

0002 * n 

0003 ft PURPOSE 

0004 ft 

000b * TO PUNCH SELF*L0ADING ORJFCT TAPFS OF ANY DFSTRFD 

0006 ft SEGMENT OF MEMORY, 

0007 ft REVISION HISTORY 

°C08 * REV DATE ECO NO. 

0009 ft H 

°°1° x * G 01*05-72 101*4 

00 1 1 * " F 06*08-71 9582 

°°12 * E 08-21-68 6098 

°°13 * D 02-15-68 5490 

°°I« * C 12-19-67 5228 

°'^ * B 10-25-67 4776 

0-H6 ft A 10-28-66 RELFASED 

0017 ft 

0018 ft 

0019 ft 

0020 ft 

0021 ft 

0022 ft 

0023 ft 

0024 ft 

0025 ft 

0026 * COPYRIGHT 1972 BY HONEYWELL INFORMATION SYSTFMS fwr. 
002 7 ^^^^^^^^^^^^^ftft^ftftftftftftftftftft^^ftft^ftftft^ft********^****^^*^ 
002 6 EJCT 



* NAME; (PAL-Atf) 



DOC. 701 80il 10.00 



RF\/. M 



PAGF 



0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
003b 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 

004 7 
004b 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 

005 a 
005s; 

0060 
0061 
0062 
0063 
0064 
0065 
006o 
0067 
006b 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
007b 
0079 
0080 
0081 
0082 
0083 
0084 
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STORAGE 

THIS PROGRAM OCCUPIES LESS THAN QNF SECTOR OF CORF. 

PAL-AP IS DISTRIBUTED IN PAL MODF AND IN RFI nCATARl F OH.iFCT FORMAT 

PAL MODE j 

ALL PAL-FORMAT PROGRAMS MUST RF I OADFD In THF FOIIOWTNG 
MANNER: 

1) THE KEY^lN LOADER (LOCATIONS 1-171 MUST RF MANUAI LY 
SET AS FOLLOWS! ASR DTGTTRONTrS 



1 STA 


t57 


01005,7 


010057 


2 OCP 


t0p01/4 


030004 


030001 


3 lhA 


♦1001/4 


131004 


131001 


4 JMP 


#-l 


002003 


002003 


5 SNZ 




101040 


101040 


6 JMP 


#-3 


002003 


002003 


7 STA 


7 


010000 


010000 


10 INA 


•1001/4 


131004 


131001 


11 JMP 


*•*! 


Q02010 


00201Q 


12 LSI. 


8 


041470 


041470 


13 INA 


•0001/4 


130004 


130001 


14 JMP 


#*1 


002013 


00201 } 


15 STA* 





110000 


Uoooo 


16 IRS 





024000 


024000 


17 SZE 




100040 


100040 



2) PLACE THE LEADER PORTION OF THF PROGRAM TN THF PAPFR 

TAPE READER. SET THF Pp.C0uNTER TO 000001 ANO PRFSS START. 
(SEE NOTE FOR ASR USFRS.) 

NOTE; WHEN USING AN ASR-.33* MOMFNTARII Y PRFSS THF START 
SWITCH ON THE READFR AFTFR PRESSING THF TOMPUTFR START 
BUTTON. WHEN USING AN ASR.,35. SFT TMF MOOF SWITCH 
TO KT, PRESS THE CONTRQl KFY (CTRI ) ANO THF KFY 
SIMULTANEOUSLY, PRESS THE COMPUTER START RUTTON. AND 
SET THE READER SWITCH TO RUN. 
THE PROGRAM WILL SFLF-I OAD TROM THTS POTNT 
TO THE CORE AREA FROM WHICH IT WAS PUNCHFD. 

RELOCATABLE FORMAT 

1) LOAD THE PROGRAM AS ANY OTHER RELOCATARI F PROGRAM 

2) TO OUTPUT A PAL MODE TAPF, USF INSTRUCT TONS RFIOW, 
USING LOAD POINT FOR FIRST ADDRESS* ANO I OAn POTNT 
PLUS »577 AS LAST ADDRESS. 

TO USE PROGRAM: 

1) MASTER CLEAR 

2) SET PROGRAM COUNTFR TO XXOOO WHFRF XX TS THF SFCTOR 



PRESS St^Ftt AfoD JHE PSOGRftM WIl L HALT. 
ENTER IlfTO^jm A~flE*ISTFR THE FIRST ADDRF 
BElltG PiJtitHipZ 



SS OF THF PROGRAM 



* l^AMEt tPAi-AP) lK)C^i^^|liC|0O, RFV. H PAGF 

•' '■ * ' ■ ' " ;; ^ ! ' « ' f ' 

'- i 

3 ■ , , ,. t - 

°° 8b * tKTO WHICH PAL^API^S BlFEN fOADFD. 

°° 8 * * 3) EflTEfc tHE ttJTpUT D0VJHE COOE INTO THF A^PFGTSTFR. IF 

^ 8 I * TNE >SR*33i$ TO jf£-uSef>« SET BIT i OF THF A-RFGISTFR 

°° 88 * AND TuRn on The pfcfljrH. if the asr**5 tVrn re ii^ed* 

° 089 * 1ST BIT 2 OF WE- ( ifa*EG!&TWft. IF THF HTGH SPFFD 

°^ 90 * PUNCH IS TO BE USfe$ft LEAVE THE A-RFGISTFP CI FARFO. 

009c # 5) 

0093 * 

° 094 * 6) prWsS staj#an&l Tftfe PROGRAM WILL HALT. 

°° 95 * 7) 6**TW INTO/tHf Aw^SlSTFR THE LAST ADDRFSS OF THF 

0096 # v PRO-AM Bglfa$ PySef^ft^ 

009 ' * 9) PRESS START AWOfHr 8FLFC"PEb OUTPUT dfvicf will RFGTN 

0098 * Punching 1&P* m A ; T 

0099 * 9) U*>ON COMPLETION 0T THE PUNCH, 'IF ANOTHFR TAPF TS TO RF 

0100 * PUNCHED tyk THE SAME DEVTCF. CONTINUF FROM STFP S- 

0101 # 

0102 # ( . ■ ■■ 
°103 # TO GENERATE UBAD AJYD 00 TAfFS: 

0104 * SYSTEM BOOTSTRAP TAPES MAY Bp PUNCHFD RY CHANGING THRFF 

° lo:> * .LOCATIONS Of P*L,AP. ATJORFSSING IS GTVFN TN orTAl RFLATTV/F 

X 106 * TO THg FIR$T U?CATI0H OF PAL..AP (IT MUST RF THF FIRST 

° 107 * LOCATION Of-A-'fttTQlh* LOCATIONS 1613 AND t*lf> ARF ROTH 

°} oa * *JWP >632» ^pUCT^NSt AND SHOULD RF CHANGFD TO 

° 109 * "JIMP* *6l2" INlT^UCTtT^S - I ..F. CHANGF FROM JUMP TO JUMP 

° 110 * INDIRECT. LOCATION f632 SHOUl D BE CHANGFD FROM "OCT 12" TO 

0111 * f, DAC ?TR H t WHSRI PTR IS THF ABSOLUTE ADDRFSS FOR 

0112 * EXECUTION A#TE* I OAO'lMft THF PAPER TAPF ROOT. 

0113 # 
0U4 * 

0115 * METHOD 

0116 * 

0117 * PAL-AP IS MADE UP OF TWO SECTIONS* THF PUNCH SFCTTON (TNCIUDTNG 
0116 * THE BOOTSTRAP) OCCUPIES XXOdO^X577. THF I OADFR SFrTTON (RFAD IN 

0119 * BY THE BOOTSTRAP) OCCUPIES X*600~XX777. TN ADDITION TO THFSF 

0120 * THE BOOTSTRAP SECTION WILL LOAD INTO LOCATIONS t?n THROUGH »57. 
°12l * AND WILL BE %H 8<*6 P0P#lAT % 

0122 * 

0123 * 

0124 * ANY PAL MOQ£ PROGRAM HAS THF FOLI OWTNG OVFRAH STRHCTURFi 

0125 * U PALfiAP FIRST .PUNCHES. ITS LOADER SFrTTON IN A-,A 
° 126 # FORMAT FOLLCH#D Bf TWELVE INCHES OF I FAOFR. 
X 127 * 2> NEXT THE DESIRED PROGRAM TS PqNCWFn TN Pdf FORMAT WHTrH 
0l2y * IS "RECQGMUED* BV THF I pAt>FR« 

° 129 * THE LOADER ON THE FR0NT OfyTWE .TAP* .will" LOAD ITsFlV AND 

°130 * THEN WILL LO/tD THE PAL.-FORMAT PROGRAM. 

0131 * 

0132 # 

0133 * DATA 15 PUNCHED IN BLOCKS OF 50 WORDS EACH. SAI TFNT 
013 ^ * CHARACTERISTICS OF THE BLOCK STRUCTURE AREA ARF AS FOI I OWSi 
^ 135 * I) A START OF MESSAGE CHARACTER (OCTAl ?nn IS 

0136 * PUNCHED AT THE BEGINNING OF EACH Rl OCX . 

0137 * 2) FOLLOWING THIS. THE ADDRESS OF THF FTRST MFMORY 
°1 3 ^ * LOCATION IS PUNCHED. 
0139 * 3) EACH BLOCK IS ENDED BY: 
0U0 * A) A CHECKSUM. THtS CONSISTS OF A WORD WHICH 



* NAMEl (PAt>*P) OQC0 ?01JK>3llOOO RFV. w 



PAGF 



0lAl * IS THE EXCLUSIVE OR OF ALI WORDS PUNCHFD 

0142 * PLUS A WORD COliN^T AND A Bl OCK COUNT. 

0U3 * (The'fi;rst pforic is 7fro and facw onf thfrf~ 

°1^ * AFTER IS INCREMENTED BY ONF.) THF 

01 ^ * CHECKSUM JS ROTATFD RTGHT ONF R?T FACW 

0146 * TIME ANOTHER WORD IS ADDED TO IT. 

01 « 7 * B) AN EHt> ®F MESSAGE CHARACTER fOCTAi ??*\ . 

0l4C * THH EOK IS F4DLL,OWFD RY A RUROUT CHARACTER fOCTAI 377) 

0U9 * *> SIX FRAMED OF LEATjpR ARF PUNCHFD RFTWFFN Rl OCKS 

0150 * AND TWELVE INCHES OF LFA0FR ARE PUNCHFD 

0151 * AT THE BEOINNTNG ,AND END OF THF PROGRAM. 

0152 * 

°153 » THE FORMAT OF THE PlfNQHEP WQRDS IS AS FOILOWS: 

01 ^ * l) non-zero WGftOv are Punched in "invisiri'f codf*. 

0155 * EACH 16-ejT word, is writtfn as A FOUR-RTT and 

°156 * TWQ SIX^BIT CHARACTERS ON TAPE. TMF FOUR.RTT 

°157 * CHARACTER ^EPRESEiNT.S THF HTGH~ORDFR FOUR 

°15b * BITS OF THE WORD* EACH SIX-BIT CHARACTFR 

°159 * HAS THE *HGH*.ORI?ER BIT TN CHANNFI FIGHT AND THF 

°160 * FIVE LOW-ORDER BITS IN CHANNELS FTVF THROUGH 

°i6i * ONE., 0RDINAR-Rly« Nothing is wRtttfn in thannfi s 

°162 * EIGHT THROUGH FlyE OF THE FOUR-RTT CHARACTFR 

0163 # OR IN CHANNELS SIX AND SEVEN OF THF SIX..RTT 

0164 * CHARACTERS,, 

°163 * 2) ElGHt CHARACTERS CAU$E SPECIAL ACTTON RV THF ASR. 

°166 * THESE ARE 0*3 AND 223 (X-OFF) . 021 AND ??) (X.ON) . 01? 

016 7 * AND 212 (LINE FEED) • 005 AND 205 fWRU>. THFSF ARF 

°166 * TRANSLATED IfhO 177 AND 377. 176 AND *7*, 175 AND 

°169 # 375, 174 AND 374* RESPFCT T VFI Y. IN TMF CASF OF FACH OF 

°1 70 * THESE CHARACTERS, CHANNELS SIX AND SFVFN ARF PUNCHFD. 

°1T1 * 3) WHEN ONE OR MORE CONSFCUTI VF 7FR0 WORDS ARF 

°1 7 2 * ENCOUNTERED IN MEMORY. THFY ARF RFPRFSFNTFD RY 

°1?3 * ONE PUNCHED WORD* THIS CONSISTS OF THF TWOiS COMPLFMFNT 

° 17 ^ * OF THE NUMBER OF CONSECUTIVF ZERO WORDS FNCOUNTFRFD. TN 

°1 7 ^ * ORDER TO DISTINGUISH THFSF 7-COllNT WORDS. CHANNFI FTGHT 

°1T6 * OF THE HIGH-ORDER (FOUR-BlTl CHARACTFR TS PUNCHFD 

0177 * 

0178 * 

0X79 * NOTE: THE WORD COUNT CONSISTS OF THF TOTAf NUMRFR OF 

°180 * WORDS ENCOUNTERED WHILF PUNCHING A Rl 0OC . TNCMIDTNG All 

0181 * ZERO WORpSt 

0182 * 

0183 * 

0184 * 

01ft5 > *********************^^ 

0106 REL 

°1« 7 EXD ENTER EXTENDFD MODF 

01 && * LOAD A WITH DEVICE TODF 

0189 00000 000013 EXA ENABLE FXTFNDED ADDRFSSING 

0190 00001 04 00460 STA CODE SAVE DFVICF CODF 

0191 00002 140040 BEGN CRA 

0192 00003 000000 HLT ENTER FIRST ADDRFSS 

0193 00004 04 00444 STA FADD SAVF IT 

0194 00005 140040 CRA 

0195 00006 000000 HLT ENTFR LAST ADDRFSS 

0196 00007 04 00445 STA LADD SAVF IT 









* NAi 


ME J <PAL«.AF1 


0197 


00010 


02 00460 




LDA 


CODE 


0196 


00011 


101400 




SMI 




0199 


00012 


01 00033 




JMP 


TF35 


0200 


00013 


140040 




CRA 




0201 


00014 


04 00461 




STA 


PON 


0202 


00015 


04 00462 




STA 


RUB 


0203 


00016 


02 00427 


SOCP 


LDA 


EASR 


0204 


00017 


04 00056 




STA 


EpNC 


0205 


00020 


02 00430 




LDA 


PASR 


0206 


00021 


04 00412 


SOTA 


STA 


1P0H+Z 


0207 


00022 


04 00415 




STA 


TP0N+5 


020b 


00023 


04 00131 




STA 


B08L+5 


0209 


00024 


04 00271 




STA 


X0F*2 


0210 


0025 


04 00274 




STA 


XOF + 5 


021 t 


00026 


04 00071 




STA 


LLOP+1 


02l<£ 


00027 


04 00363 




STA 


0K*1 


0213 


00030 


04 00375 




STA 


P*2 


0214 


00031 


04 00U7 




STA 


ORUBfl 


021^ 


00032 


01 00052 




JMP 


CONT 


02lo 


00033 


0416 77 


TF35 


ALR 


1 


0217 


00034 


101400 




SMI 




02 Id 


00035 


01 00043 




JMP 


HISP 


0219 


O0O36 


02 00473 




LDA 


s«?22 


0220 


00037 


04 00461 




STA 


PON 


022 1 


00040 


02 00472 




LDA 


• •377 


0222 


C0041 


04 00462 




STA 


RUB 


0223 


00042 


01 00016 




JMP 


SOjCP 


0224 


00043 


140040 


HISP 


CRA 




0225) 


00044 


04 00461 




STA 


PpN 


022b 


00045 


04 00462 




STA 


RUB 


0227 


00046 


02 00431 




LDA 


EBRP 


022K 


00047 


04 00056 




STA 


EPNC 


0229 


0050 


02 00432 




LDA 


PBRP 


0230 


00051 


01 00021 




JMP 


50TA 


0231 


00052 


140040 


CQNT 


CRA 




0232 


00053 


04 00446 




STA 


BLCT 


0233 


00054 


04 00450 




STA 


ZCNT 


0234 


O0O55 


04 00443 




STA 


Z 


0235 


0005o 


14 0002 


EPNC 


OCP 


• z 


0236 


00057 


10 00410 




JST 


TPON 


023"' 


00060 


01 00077 




JMP 


LDR 


023b 


00061 


000000 


LEAD 


DAC 


** 


02?9 


00062 


02 00436 




LDA 


N120 


0240 


O0O63 


04 00453 




STA 


HOX 


0241 


00064 


01 00070 




JMP 


#♦4 


0242 


00065 


000000 


PNC 


DAC 


*# 


0243 


00066 


02 00065 




LDA 


PNC 


0244 


00067 


04 00061 




STA 


LEAD 


0245 


00070 


140040 


LLOP 


CRA 




0246 


00071 


74 0002 




OTA 


•2 


024 7 


00072 


01 00071 




JMP 


**l 


0248 


00073 


12 00453 




IRS 


NDX 


0249 


00074 


01 00070 




JMP 


*-4 


0250 


00075 


04 00447 




STA 


WDCT 


0251 


00076 


-0 01 00061 




JMP* 


LEAD 


0252 


00077 


10 00061 


LUR 


JST 


LEAD 



ooc. Touomboo RFV. H 



PICKUP DRVTCE CODF 
IS A$R~33 TN USF 
NO, 



RE^f ACF OTA 12 WITH OTA 14. 

SET OTAtS 

SPT OTAtS 

SET <TTA is 

SET OTA'S 

SET OTA«S 

SET OTAtS 

SET OTAtS 

SET OTAts 



TEST FOR ASR-35 
IS ASR-35 TN USF 
NO. 

INITIALT7F PUNCH 
AND ftUBOUT CODES 



HIGH SPFFD PUNCH IN USF 



OCP t2 

OTA t? 

STORF IT AWAY 

BLOCK COUNT 
AND 7C0UNT 

ENABI E PUNCH 

TURN PUNCH ON 

GO TO PUNCH I FADFR 

ROUTINE TO PUNCH I? TNrwFS OF I FADFR 

SET INDFX FOR 1?0 FRAMFS 

AND GO TO 

PUNCH 

STORF RFTURN ADDkESS 
IN LFAO 
LEADER I OOP 
OUTPUT I FADFP 



RETURN 

GO TO PUNCH 12 INCHFS OP I FADFP 



PAGF 











* NAME: <f>AL*AP> 


0253 


00100 


02 


00471 


LDA 


S f 52 


0254 


ooioi 


04 


00731 


STA 


CHAW 


0255 


00102 


04 


00704 


STA 


SWCH 


0256 


00103 


04 


00715 


STA 


WORIP 


0257 


00104 


02 


00434 


LDA 


MBH 


0258 


00105 


04 


00453 


STA 


NDX 


0259 


00106 


b 02 


00440 


LDA 


LOAD 


0260 


00107 


04 


00401 


STA 


PN88 


0261 


00110 


10 


00400 


JST 


PN 


0262 


00111 


12 


00401 


IRS 


PN88 


0263 


00112 


12 


00401 


IRS 


P.N88 


0264 


00113 


02 


00437 


LDA 


NBL2 


0265 


00114 


04 


00453 


STA 


NDX 


0266 


00115 


10 


00400 


JST 


PN 


0267 


00116 


02 


00472 


ORUB LDA 


e«377 


0268 


O0U7 


74 0002 


OTA 


•2 


0269 


00120 


01 


00117 


JMP 


*~l 


0270 


00121 


10 


00410 


JST 


TPON 


0271 


00122 


10 


00061 


JST 


LEAD 


0272 


00123 


01 


00125 


JMP 


BGBL+l 


0273 








* 




0274 








* 


BEGIN 


0275 








* 




0276 


00124 


10 


00410 


B<3BL JST 


TPON 


0277 


00125 


02 


00433 


LDA 


N6 


027b 


00126 


04 


00453 


STA 


NDX 


0279 


00127 


10 


00065 


JST 


PNC 


0280 


00130 


02 


00441 


LDA 


SOM 


0281 


00131 


74 0002 


OTA 


•2 


0282 


00132 


01 


00131 


JMP 


*~1 


0283 


00133 


02 


00435 


LDA 


N50 


0284 


00134 


04 


00451 


STA 


PNCT 


0285 


00135 


02 


00446 


LDA 


BLCT 


0286 


00136 


04 


00452 


STA 


CKSM 


028' 


00137 


12 


00446 


IRS 


BLCT 


028b 


00140 


02 


00444 


LDA 


FADD 


028* 


00141 


07 


00470 


SUB 


si 


0290 


00142 


10 


00277 


JST 


LOOP 


0291 


00143 


02 


00443 


LDA 


Z 


0292 


00144 


04 


00450 


STA 


ZCNT 


0293 


00145 


02 


CK)455 


LDA 


SAVE 


0294 


00146 


01 


00150 


JMP 


* + 2 


0295 


00147 


12 


00444 


MOVE IRS 


FADD 


0296 


00150 


12 


00447 


IRS 


WDCT 


0297 


00151 


05 


00452 


ERA 


CKSM 


0298 


00152 


0406 


77 


ARR 


1 


0299 


00153 


04 


00452 


STA 


CKSM 


0300 


00154 


12 


00451 


IRS 


PNCT 


0301 


00155 


01 


00157 


JMP 


**2 


0302 


00156 


01 


00226 


JMP 


ENBL 


0303 


0015 7 


10 


00207 


JST 


DECD 


0304 


00160 


01 


00221 


JMP 


GO 


0305 


00161 


-0 02 


00444 


LDA* 


FADD 


0306 


00lb2 


100040 


SZE 




0307 


00163 


01 


00201 


JMP 


NZZZ 


0308 


00164 


12 


00450 


IRS 


ZCNT 



DQC 7pU031100b 



RFV. 



PAGF 



GET FIRST RETURN FOR CHAR SURRnUTTNF 

INITIALT7E TO PRTSTTNF CONDITION 

INITIALISE TO PRISTTNF CONDITION 

LENGTH OF FIRST t EVFI ROOT CNFM 

FIft$T 

BLOCK 

OF 

PUNCH Bl 1 

OMIT THE OCP OF RL? 

OMIT THF INA OF Rl ? 

LENGTH OF SECOND I.FVFI ROOT tHF6\ 

BLOCK 

PUNCH SECOND LEVFL ROOT 



TURN PUNCH O'Nt PUNCH I FADFR 



BEGIN PUNCHING BLOCK OF CHARACTERS 



BEGIN BLOCK • SET INDFX FnP 
SIX>RAMFS OF LFADFR 
AND PUNCH 

LOAD START-QF-.MES5AGF 
PUNCH 

(D^LAY IF PUNCH NOT RFADYt 
INJTIALI7E 
PUNCH COUNT 
INITIALI7E CHECKSUM 
WITH BLOCK COUNT 
AND INCRFMFNT BLOCK COUNT- 
LOAD FIRST ADDRESS OF R! OCK 

AND PUNCH IT. 



INCREMFNT FIRST ADDRFSS 
ANQ WORD COUNT 
UPDATE CHECKSUM WITH 

CHARACTFR JUST PUNCHFD 

INCRFMFNT PUNCHCHUNT 

50 WORDS NOT YET PUNCHFD 

50 WORDS PUNCHED-FND RfoCK 

CHFCK IF 7C0UNT 7FRD 

NOtPUNCH STORED WORD 

YES* » OAO NFXT WORD FROM MFMORY 

IS IT 7FR0 

NO 

YES, INCRFMFNT 7C0UNT 



* NAME J (PALrAP) 



D$C. 761,80311000 



RFV. H 



PAGF 



0309 


00165 


12 00447 


IRS 


WDCT 


0310 


00166 


12 00444 


IRS 


FADD 


0311 


00167 


12 00451 


IRS 


PNCT 


0312 


00170 


01 00213 


JMP 


CKLA 


0313 


00171 


02 00450 


LDA 


ZCNT 


0314 


00172 


10 00277 


JST 


LOOP 


031b 


00173 


05 00452 


ERA 


CK$M 


0316 


00174 


0406 77 


ARR 


I 


0317 


00175 


04 00452 


STA 


CKSM 


031b 


00176 


140040 


CRA 




0319 


00177 


04 00450 


STA 


2CNT 


0320 


00200 


01 00226 


JMP 


ENBL 


0321 


00201 


04 00454 NZZZ 


STA 


WD 


0322 


00202 


02 00450 


LDA 


ZCNT 


0323 


00203 


101040 


SNZ 




032* 


00204 


01 00223 


JMP 


G0*2 


0325 


00205 


10 00277 


JST 


LOOP 


0326 


00206 


01 00151 


JMP 


MOVE+2 


0327 


00207 


000000 DECD 


DAC 


** 


032b 


00210 


02 00450 


LDA 


ZCNT 


032V 


00211 


101040 


SNZ 




0330 


00212 


12 00207 


IRS 


DECD 


0331 


00213 


02 00444 CKLA 


LDA 


FADD 


0332 


00214 


07 00470 


SUB 


»1 


0333 


00215 


05 00445 


ERA 


LADD 


0334 


00216 


100040 


SZE 




0335 


00217 


-0 01 00207 


JMP* 


DECP 


0336 


00220 


01 00263 


JMP 


CHEK 


033f 


00221 


140040 GO 


CRA 




0338 


00222 


04 00450 


STA 


ZCNT 


0339 


00223 


02 00454 


LDA 


WD 


0340 


00224 


10 00277 


JST 


LOOP 


0341 


00225 


01 00147 


JMP 


MOVE 


0342 




* 






0343 




* 




END BLOCK 


0344 




* 






0345 


00226 


02 00450 ENBL 


LDA 


ZCNT 


0346 


00227 


04 00443 


STA 


Z 


0347 


00230 


140040 


CRA 




0348 


00231 


04 00450 


STA 


ZCNT 


0349 


00232 


02 00447 


LDA 


WDCT 


0350 


00233 


05 00452 


ERA 


CKSM 


0351 


00234 


10 00277 


JST 


LOOP 


0352 


00235 


10 00267 


JST 


XOF 


0353 


00236 


01 00124 


JMP 


BGBL 


0354 


00237 


10 00277 ZHZ 


JST 


LOOP 


0355 


00240 


05 00452 


ERA 


CKSM 


0356 


00241 


0406 77 


ARR 


1 


0357 


00242 


04 00452 


STA 


CKSM 


0358 


00243 


140040 


CRA 




0359 


00244 


04 00450 


STA 


ZCNT 


0360 


00245 


02 00447 


LDA 


WDCT 


0361 


00246 


05 00452 


ERA 


CKSM 


0362 


00247 


10 00277 


JST 


LOOP 


0363 


00250 


10 00267 


JST 


XOF 


0364 


00251 


10 00410 


JST 


TPON 



AND WORDfOUNT 

AND FlkXj ADDRESS 

BUMP WORD COUNT 

CHECK FOR LAST ADDRFSS 

GO TFRMINATF BLOCK 

PUNCH NO. OF ZERO- WORDS 

CALCULATF NEW CKSM 

# 

SAVE IT 

RESET ZCOUNT 

DO IJ 

GO fTNlSH BLOCK 

WOJft> NOT *FRO, STORF TT 

CHECK ZCOUNT 

IS IT 7FR0 

NO, TAKF 7C0UNT* PUNCH. 

RETURN 

DECISION St/BROUTTNF 

CHECK ZCOUNT 

IS if 7FR0 

YESt INCREMENT RFTURN ADDRFSS 

NO, CHECK 

LAST 

ADDRESS 

NOT REACHED,. RFTURN 

LAST ADDRESS REACHED. CMFHC 7C0UNT 

RS5T0RF 

ZCOUNT TO 7FR0 

TAKE STORED WORD 

AND PUNCH TT 

AND CONTINUF. 



WITH CHFCKSUM 

AND PUNCH 

PUNCH XOFF 

BEGIN NFW BLOCK 

ZCOUNT NOT 7FR0t PUNCH TT* 

UPDATF 

CHECKSUM 



LOAD WORD rOUNT AND 
ERA IT WITH CHECKSUM 
PUNCH CHFCKSUM 
PUHCH TWO XOFtS 
TURN PUNCH ON 



* NAME: (PAL-AP) 



DOC. 70100311000 



RFV. M 



PAGE 



0365 00252 


10 00267 


JST 


XOF 


SECOND XOF 


0366 00253 


10 00410 


J5T 


TPON 




0367 00254 


10 00061 


JST 


LEAD 


TURN PUNCH 0N» ^UHCH 1 FAOFR 


0368 00255 


02 00460 


LDA 


CODE 


PICKUP OUTPUT DFVICF 


0369 00256 


0416 77 


ALR 


i 


CHECK IF A.SR*3'5 


0370 00257 


101400 


SMI 




a 


0371 00260 


100000 


SKP 




EITHER 33 OR H/S 


0372 00261 


10 00267 


JST 


XOF 


STOP PUNCH ON ASft-3«S 


0373 00262 


01 00371 


JMP 


DQN£ 


GO WRAP UP 


0374 00263 


02 00450 CHEK 


LDA 


ZCNT 


IS £ COUNT 7FR0 


0375 00264 


100040 


SZE 






0376 00265 


01 00237 


JMP 


ZNZ 


NO, PUNCH IT 


0377 00266 


01 00245 


JMP 


ZNZ+6 




0378 00267 


000000 XOF 


DAC 


*# 


PUNfH XOFF ROUT INF 


0379 00270 


02 00442 


LDA 


XORF 


LOAD XOFF 


0380 00271 


74 0002 


OTA 


•2 


PUNCH 


0381 00272 


01 00271 


JMP 


#rl 


(PEL AY IF PUNCH NOT RFAOY) 


0382 00273 


02 00472 


LDA 


s*377 




0383 00274 


74 0002 


OTA 


•2 




0384 00275 


01 00274 


JMP 


#»l 




0385 00276 


-0 01 00267 


JMP# 


XOF 


RETURN 


0306 00277 


000000 LOOP 


DAC 


*# 


MAIN pgNCH 1 OpP 


0387 00300 


10 00306 


JST 


TEST 


IS WORD A 7C0UNT 


03aa 00301 


05 00467 


ERA 


sUOOOOO 


YES» PUT ONE IN HIGH OROFP RTT 


038 f > 00302 


10 00331 


JST 


PNCH 


PUNCH 


0390 003O3 


iO 00331 


JST 


PNCH 


THREF 


0391 00304 

0392 00305 


10 00331 

-0 01 00277 


JST 
JMP* 


PNCH 
LOOP 


CHARACTFRS 
RETUfeN 


0393 00306 


000000 TEST 


DAC 


#* 




039* 00307 


04 00455 


STA 


SAV£ 


SAVE WORD 


039b 00310 


02 00450 


LDA 


ZCNT 




0396 00311 


101040 


SN2 






039f 00312 


01 00317 


JMP 


**5 




0398 00313 


05 00466 


ERA 


= -l 


TAKF TWOiS 


039V 00314 


06 00470 


ADD 


si 


COMPLEMENT 


0400 00315 


04 00455 


STA 


SAVE 


UPpAT'F SAVF 


040i 00316 


01 00321 


JMP 


**3 


CONTTNUF 


0402 00317 


12 00306 


IRS 


TEST 


ZCOUNT 7FR0, CONTlNtIF 


0403 0032U 


02 00455 


LDA 


SAVE 


REGAIN SAVF 


040t 00321 


0406 76 


ARR 


2 


POSITION CHARACTFR 


0405 0J322 


04 00455 


STA 


SAVE 




0406 00323 


03 00465 


ANA 


$•36000 


CLEAR TO CHARACTER 
RETURN 


0407 00324 


-0 01 00306 


JMP* 


TEST 


040b 00325 


0404 66 HOB 


LGR 


10 


CHANGE HIGH-OROFR 


0409 00326 


03 00464 


ANA 


= 137 


BIT FROM CHANNEL 6 


0410 00327 


05 00463 


ERA 


s»200 


TO CHANNFI 8 


0411 00330 


01 00335 


JMP 


**5 


AND GO TO PUNCH 


0412 00331 


000000 PNO 


1 DAC 


** 


PUNCH ROUTTNF 


0413 00332 


100400 


SPL 




CHECK FOR 


0414 00333 


01 00325 


JMP 


HOB 


HIGH ORDFR RTT 


0415 00334 


0404 66 


LGR 


10 


POSITION CHARACTFR 


0416 00335 


04 00456 


STA 


SAVA 


STORF IT 


0417 00336 


03 00464 


ANA 


= '37 


SET UP FOR TRANSlATTON CHPCK 


0418 00337 


04 00457 


STA 


SAVB 


STORF 


0419 00340 


02 00420 


LDA 


ADCl 


LOAD ADDRFSS OF TARI F 


042C 00341 


04 00421 


STA 


ADC2 


SETUP FOR CHFCK 



* NAME: (PAL-APV 



&&€• 70180311000 



RFV. M 



PAGF 



0421 


00342 


-0 02 00421 




LDA# 


ADC2 


0422 


00343 


101040 




5NZ 




0423 


00344 


01 00362 




JMP 


OK 


0424 


00345 


03 00472 




ANA 


*»377 


0425 


00346 


05 00457 




ERA 


SAVB 


0426 


00347 


101040 




SN2 




04 27 


00350 


01 00353 




JMP 


TRNS 


042fc 


00351 


12 00421 




IRS 


ADC2 


0429 


00352 


01 00342 




JMP 


*-e 


0430 


00353 


02 00456 


TRNS 


LDA 


SAVA 


0431 


00354 


03 00463 




ANA 


= •200 


0432 


00355 


04 00456 




STA 


SAVA 


0433 


00356 


-0 02 00421 




LDA* 


ADC2 


0434 


00357 


0404 70 




LGR 


8 


0435 


00360 


05 00456 




ERA 


SAVA 


0436 


00361 


01 00363 




JMP 


#♦2 


0437 


00362 


02 00456 


OK 


LDA 


SAVA 


0438 


00363 


74 0002 




OTA 


*2 


0439 


00364 


01 00363 




JMP 


*-l 


0440 


00365 


02 00455 




LDA 


SAVE 


0441 


00366 


0416 72 




ALR 


6 


0442 


00367 


04 00455 




STA 


SAVE 


0443 


00370 


.0 01 00331 




JMP* 


PNCM 


0444 


00371 


14 0102 


DONE 


OCP 


• 102 


044b 


00372 


01 00002 




JMP 


BEGN 


0446 


00373 


000000 


P 


DAC 


** 


0447 


00374 


0406 70 




ARR 


8 


0446 


00375 


74 0002 




OTA 


•2 


0449 


00376 


01 00375 




JMP 


*-l 


0450 


00377 


-0 01 00373 




JMP* 


P 


0451 


00400 


00 00000 


PN 


PZE 


** 


0452 


00401 


00 00000 


PN88 


PZE 


** 


0453 


00402 


10 00373 




JST 


P 


0454 


00403 


10 00373 




JST 


P 


0455 


00404 


12 00401 




IRS 


PN88 


0456 


00405 


12 00453 




IRS 


NDX 


04 57 


00406 


01 00401 




JMP 


PN88 


045ti 


00407 


-0 01 00400 




JMP* 


PN 


0459 


00410 


000000 


TPON 


DAC 


** 


0460 


00411 


02 00461 




LDA 


PON 


0461 


00412 


74 0002 




OTA 


•2 


0462 


00413 


01 00412 




JMP 


*-l 


0463 


00414 


02 00462 




LDA 


RUB 


0464 


00415 


74 0002 




OTA 


•2 


0465 


00416 


01 00415 




JMP 


*^l 


0466 


00417 


-.0 01 00410 




JMP* 


TPON 


0467 


00420 


000422 


A0C1 


DAC 


CI 


0468 


00421 




ADC2 


BSS 


1 


0469 






,* 






0470 






* TRANSLATION TABLE. 


0471 






* IN 


RIGHT 


-HAND HALF* 


0472 






* IN 


LEFT- 


•HAND HALF. 


0473 






* 






0474 


00422 
00423 
00424 


077423 
077021 
076412 


CI 


OCT 


77423,7702 



LOAD FROM TABLE 

CHFCK* FOR FNO OF TARI F 

DONF, NO TRANSLATION NFFnFD 

CLEAR 9 HIGH-ORDFR RTTS 

CHECK FOR 

MATCH 

YES, TRANSfATF 

NO, INCRFMFNT ADQRFSS 

ANtf RFTURN. 

PICK UP ORIGINAL CHARACTFR 

CLE^R All RUT BIT ft 

SAVE BIT 

PICK UP SUBROUTINE 

CHARACTFR 

OBTAIN CORRFCT BIT ft 

PUNCH 

NO TftANSI ATION, GET CHARACTFR 

PUj^CH 

(DfLAY IF PUNCH NOT RFAHY) 

POMTJON .WORD 

FOR NFXT CHARACTFR 

STORF CHARACTER 

ANP RETURN 

RESTART TF DFSTRFD 



PUNCH 



PUNCH LOAD PROGRAM 
IN 8-8 FORMAT 



TURN PUNCH ON 

OUTPUT »22? 

IF ASR-35 IN USF. 

OUTPUT 1377 

IF ASR-35 IN USF. 



ADDRFSS OF CI 



ILLEGAL CHARACTFR (7 LOW OPDFR RTTS) 

AND SUBSTITUTION CHARACTER (7 fnw ORDFR RTTS> 



1*76412,76005,0 



* NAME: (PAI^AP) 



t>OCb 701*031 lO(VO 



RFV/. M 



PAGF 



in 



00425 


076005 














00426 


000000 














0475 




# 












0476 00427 


14 0104 


EA5R 


OCP 


•104 








0477 00430 


74 0004 


PASR 


OTA 


14 








0478 00431 


14 0002 


EBRP 


OCP 


•2 








0479 00432 


74 0002 


PBRP 


OTA 


•2 








0480 00433 


177772 


N6 


DEC 


*6 








0481 00434 


177740 


NBL1 


dac: 


ST-BL2 


NE6ATIVF 


LENGTH OF 


FTR*T f 


0482 00435 


177716 


N50 


DEC 


-50 








0483 00436 


177610 


N120 


DEC 


*120 








0484 00437 


177604 


NBL2 


DAC 


WAIT-STPC-1 


NEfc lENGTH OF SFCONn 1 FV/FI 


0485 00440 


02 00540 


LOAD 


LDA 


ST 


STARTING 


ADDRESS 




0486 00441 


000201 


SOM 


OCT 


201 








0487 00442 


000223 


XOFF 


OCT 


223 








048o 00443 




Z 


BSS 


1 








0489 00444 




FAOD 


BSS 


1 








0490 00445 




LAPD 


BSS 


1 








0491 00446 




BLCT 


BSS 


I 








0492 00447 




WOGT 


BS5 


I 








0493 00450 




ZCNT 


BSS 


■I 








0494 00451 




PNCT 


B5S 


1 








0495 00452 




CKSM 


BSS 


1 








0496 00453 




NOX 


BSS 


1 








Q49f 00454 




WD 


BSS 


I 








0498 00455 




SAVE 


BSS 


1 








0499 00456 




5AVA 


BSS 


1 








0500 00457 




SAVB 


BSS 


1 








0501 00460 




CODE 


BSS 


1 








0502 00461 


000000 


PON 


BSZ 


1 








0503 00462 


000000 


RUB 


BSZ 


1 








0504 00463 


000200 




FIN 










00464 


000037 














00465 


036000 














00*66 


177777 














00467 


100000 














00470 


000001 














00471 


000052 














00472 


0003 It 














00473 


000222 














0505 00474 


000000 




BSZ 


•40 








0506 




# 












0507 




* 




SYSTEM BOOTSTRAP 








0508 




* 












0509 






ORG 


'540 








0510 00540 


000020 


ST 


DAC 


•20 


STARTING 


ADDRESS 




0511 




* 






1 STA 


•57 


nions? 


0512 




* 






2 OCP 


• noox 


moonx 


0513 




* 






3 INA 


•100X 


isionx 


0514 




* 






4 JMP 


*-l 


00700* 


0515 




* 






5 SN7 




101040 


0516 




* 






6 JMP 


#•3 


00200* 


0517 




* 






7 STA 





OLOOOO 


0518 




# 






10 INA 


MOOX 


i*ionv 


0519 




* 






11 JMP 


*-l 


007010 



* NAME: (PAL-AP) 



DtiC. 70180311000 



RFV. H 



PAGF 



11 



0520 


* 






0521 


* 






0522 


* 






0523 


# 






0524 


* 






0525 


* 






0526 00541 


01 OOOiO 


JMP 


•10 


0527 0054a 


02 00041 


LDA 


•41 


052U 00543 


04 00021 


STA 


♦ 21 


0529 00544 


02 00057 


LDA 


•57 


0530 00545 


100040 


SZE 




0531 00^46 


04 00054 


STA 


•54 


0532 00547 


02 00054 


LDA 


• 54 


0533 00550 


04 00000 


STA 





0534 00551 


06 00055 


ADD 


•55 


0535 00552 


04 00055 


STA 


'55 


053u 00553 


000013 


EXA 




0537 00554 


02 00013 


LDA 


•13 


053a 00555 


03 00044 


ANA 


•44 


0539 00556 


-0 04 00000 


STA* 





0540 00557 


12 00000 


IRV 





0541 00$60 


02 00010 


LDA 


•10 


0542 00561 


01 00015 


JMP 


•15 


0543 00562 


01 00042 


JMP 


•42 


0544 00563 


04 00025 


STA 


•25 


0545 00564 


100000 


SKP 




0546 00565 


0777 7 7 


OCT 


77777 


0547 00566 


101000 


NOP 




0546 00567 


02 00051 


LDA 


•51 


054V 00570 


04 00020 


STA 


•20 


0550 00571 


01 00010 


JMP 


•10 


0551 00572 


-0 01 00054 


JMP* 


•54 


0552 00573 


140040 


CRA 




0553 00574 


-0 01 00055 


JMP* 


•55 


0554 00575 


000600 


DAC 


BL2 


0555 00576 


000033 


OCT 


33 


0556 00577 


000000 


OCT 





0557 


* 






0556 


* 




LOADER 


0559 OObOO 


14 0001 BL2 


OCP 


1 


0560 00601 


54 0001 


INA 


1 


0561 


* 






0562 00602 


01 00601 WAIT JMP 


*»* 


0563 00603 


14 0101 


OCP 


•101 


0564 U0604 


04 00022 


STA 


•22 


0565 00605 


05 00775 


ERA 


STPC 


0566 00606 


100040 


SZE 




0567 O06O7 


-0 01 00731 


JMP* 


CHAR 


056b 00610 


-0 02 00731 


LDA* 


CHAR 


0569 00611 


05 00655 


ERA 


SCAN 


0570 00612 


101040 


SNZ 




0571 00613 


01 00632 


JMP 


ENDT 


0572 00614 


02 00025 


LDA 


•25 


0573 00615 


101040 


SNZ 




0574 00616 


01 00632 


JMP 


ENDT 


0575 00617 


05 00020 


ERA 


•20 



12 ta 


8 


041470 


13 JNA 


tOOOX lBOOny 


14 JMP 


*„1 00701* 


15 STA* 


11 0000 


16 IRS 





074000 


17 S7E 




100040 


00$2Q 


TO FII I OUT R00TSTPAP 


00Q21 


SFt 


NFXT REFNTRY 


OOO33 


* 




00023 


SFT 


STARTING ADDPFSS 


OO6J4 


* 




ooois 






00026 






00027 


* 




00030 






00031 






00^32 






00033 


SFT 


TO ORDERS 


000*4 






00035 


* 




00036 


* 




00037 


* 




00040 


* 




OOO4I 


SFCOMD RFFNTRY 


00Q42 


CI.FAR WORHCOUNT 


00043 






00044 






00045 






00046 


END 


. SET UP FINAl" RFFNTRY 


00047 


* 




00050 


* 




00051 






00052 






00053 


AUTOMATIC LOAD 


000^-4 


DFFAUI.T. START 


00055 






00056 


TFRMtNATF FIRST SFCTION 



READER OFF IF ON 
STOP CODF TEST 

TEST FOR SCAN MODE 
END FII.F EXTT 



* NAME: (PAL-AP* 



pO£. 7^180311000 



RFV. W 



PA6F 



1? 



0576 00620 


0416 77 


ALR 


1 


0577 00621 


05 00021 


ERA 


rti 


0578 00622 


100040 


SZE 




0579 00623 


01 00630 


JMP 


^ROR 


05C0 00624 


04 00025 


STA 


..•?* 


0581 00625 


10 00731 


JST 


CHAR 


058^ 00626 


12 00024 BUMP 


IRS 


•24 


0583 00627 


01 00634 


JMP 


S,TRT*l 


0584 00630 


000012 EROR 


OCT 


12 


0585 00631 


01 00630 


JMP 


*~1 


0586 00632 


00G012 ENDT 


OCT 


12 


0587 00633 


04 00024 STRT 


STA 


•24 


0588 00634 


140040 


CRA ' 




0589 00635 


04 00022 


STA 


122 


0590 00636 


02 00010 


LDA 


no 


0591 00637 


0406 77 


ARR 


i 


0592 00640 


100400 


SPL 




0593 00641 


01 00652 


JMP 


SCAN-3 


0594 00642 


34 0104 


SK5 


•J04 


0595 00643 


01 00642 


JMP 


#*l 


0596 00644 


14 0104 


OCP 


• 104 


0597 00645 


02 00766 


LDA 


*»221 


0598 00646 


74 0004 


OTA 


4 


0599 00647 


34 0104 


SKS 


•104 


0600 00650 


(1 00647 


JMP 


#-l . 


0601 00651 


14 0004 


OCP 


4 


0602 00652 


02 00022 


LDA 


•2-2 


0603 00653 


01 00655 


JMP 


#♦2 


0604 00654 


10 00731 


JST 


CKAR 


0605 00655 


05 00767 SCAN 


ERA 


F'22 


0606 00656 


100040 


SZE 




0607 00657 


01 00654 


JMP 


#i*3 


0608 00660 


04 00000 


STA 





0609 00661 


04 00025 


STA 


•25 


0610 00662 


02 00024 


LDA 


•24 


0611 00663 


04 00020 


STA 


•20 


0612 00664 


10 00731 


JST 


CHAR 


0613 00665 


10 00704 DATA 


JST 


SWCH 


0614 00666 


01 00665 


JMP 


*-l 


0615 00667 


10 00715 


JST 


WORD 


0616 0067U 


05 00765 


ERA 


32 


0617 00671 


' 04 00021 


STA 


•21 


0618 00672 


05 00020 


ERA 


•20 


0619 00673 


0406 77 


ARR 


1 


0620 00674 


04 00020 


STA 


• 20 


0621 00675 


140040 


CRA 




0622 00676 


-0 04 00000 


STA* 





0623 00677 


12 00025 


IRS 


•25 


0624 00700 


i2 00000 


IRS 





0625 00701 


12 00021 


IRS 


•21 


0626 00702 


01 00676 


JMP 


*-4 


0627 00703 


01 00665 


JMP 


DATA 


0628 00704 


00 00052 5WCH 


1 PZE 


•52 


0629 00705 


10 00715 


JST 


WORD 


0630 00706 


-0 04 00000 


STA* 





0631 00707 


12 00000 


IRS 






RESET WORD COUNT 

INCREMENT Rl OCK COUNT 

ERRdR HALT 

HALT AGATN TF STARTFD 
HALT* TAPE I OADED NORMAI I Y 
R&5Et BLOCK COUNT 

RESET CHARACTER BUFFER 
TE$T FOR HIGH SPEED READER 



TUJRN ON TEl EPRINTFR 
LEADER SCAN 
ST*RT OF MFSSAGE 

* 

RESET WORD COUNT 

INITIALT7E Bl OCK 



do data load 
do zero Toad 



ADO TO WORD COUNT 

ADD TO WORD COUNT 
INITIALI7ED N0N7FRn CONSTANT 



* NAME: (PAL-AP) 



DtiG* TOiaOlllOOO RFV. M 



PAGF 



1* 



0632 00710 


12 00025 


IRS 


'25 


0633 00711 


05 00020 


ERA 


'20 


0634 00712 


0406 77 


ARR 


1 


0635 00713 


04 00020 


5TA 


• 20 


0636 00714 


-0 01 00704 


JMP* 


SWCH 


0637 00715 


00 00052 


WORD PZE 


•52 


063B 0071$ 


140040 


CRA 




0639 00717 


04 00021 


5TA 


•21 


Q64O 00720 


10 00731 


JST 


CHAR 


0641 00721 


10 00731 


JST 


CHAR 


0642 00722 


10 00731 


JST 


CHAR 


0643 00723 


0414 70 


LGL 


a 


0644 00724 


101400 


SMI 




0645 00725 


12 00704 


IRS 


SWCH 


0646 00726 


02 00021 


LDA 


•21 


06V7 007*7 


0406 77 


ARR 


1 


0648 00730 


-0 01 00715 


JMP* 


WORD 


0649 00731 


000052 


CHAR DAC 


•52 


0650 00732 


02 00022 


LDA 


•22 


0651 00733 


0414 70 


LGL 


8 


0652 00734 


100400 


SPL 




0653 00735 


12 00021 


IRS 


•21 


0654 00736 


0414 77 


LGL 


1 


0655 00737 


05 00764 


ERA 


=•174000 


0656 00740 


101040 


SNZ 




0657 00741 


02 00763 


LDA 


3«171000 


C65e 00742 


05 00762 


ERA 


=•1000 


0659 00743 


101040 


SNZ 




0660 00744 


02 00761 


LDA 


?• 167000 


0661 00745 


05 00770 


ERA 


LI 


0662 00746 


101040 


SNZ 




0663 00747 


02 00771 


LDA 


L2 


0664 00750 


05 00762 


ERA 


5»1000 


0665 00751 


101040 


SNZ 




0666 00752 


02 00772 


LDA 


L3 


0667 00753 


05 00773 


ERA 


L4 


0668 00754 


0414 76 


LGL 


2 


0669 00755 


05 00021 


ERA 


•21 


0670 C0756 


0416 72 


ALR 


6 


0671 00757 


04 00021 


STA 


•21 


0672 00760 


01 00600 


JMP 


WAIT-2 


0673 00761 


167000 


FIN 




00762 


001000 






00763 


171000 






00764 


174000 






00765 


000002 






00766 


000221 






00767 


000022 






0674 00770 


002000 


LI OCT 


2000 


0675 00771 


154000 


L2 OCT 


154000 


0676 00772 


157000 


L3 OCT 


157000 


0677 C0773 


176000 


L4 OCT 


176000 


0670 00774 


000000 


OCT 





0679 00775 


000223 


STPC OCT 


223 


0680 




* 
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ADO TO WORD COUNT 
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TEST FOR 7FR0-C0UNT WHRn 



FIRST TIME IN-RFTURN VTA •■*? 
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EXIT ON STOP CODF* 
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FUNCTION 



* NAME: <PA1-Af>) 



OOC, 7Qlf0tU0£d. 



RFV. H 



PAGF 



14 



0681 


' 




* 










0682 






* 


20 




CHECKSUM 


0683 






# 


21 




ACCUMULATOR 


0684 






# 


22 




CHAR^CTFR BUFFER 


068b 






# 


24 




BLQCK COUNT 


0686 






* 


25 




WORD 


- COUNT 


0687 






END 










ADC1 


000420 


ADC2 


000421 


BEGN 


000002 


BGBL 


000124 


EL? 


000600 


BLCT 


000446 


BUMP 


0OQ626, 


CI 


00042? 


CHAR 


000731 


CHEK 


000^63 


CKLA 


000213 


CKSM 


00045? 


CODE 


000460 


CONT 


000052 


DATA 


000665 


DECD 


000207 


DONE. 


000371 


EASR 


000427 


£brp 


Q00431 


ENBL 


000726 


ENDT 


000632 


EPNC 


000056 


Eror 


000630 


PADO 


Q00444 


GO 


000221 


HISP 


000043 


HOB 


0003*5 


LI 


$00770 


L2 


000771 


L3 


000772 


L4 


00077£ 


LADD 


000445 


LDR 


000077 


LEAD 


000061 


LLOP 


060070 


LOAD 


000440 


LOOP 


000277 


MOVE 


000147 


NJ20 


000436 


N50 


000435 


M6 


000433 


NQL1 


000434 


NBL2 


000437 


NDX 


000451 


NZ7t 


000201 


OK 


000362 


ORUB 


000116 


P 


000373 


PASR 


000430 


PBRP 


000432 


PN 


Q00400 


PN88 


000401 


PNC 


000065 


PNCH 


000331 


PNCT 


000451 


. PON 


000461 


RUh 


000462 


SAVA 


000456 


SAVB 


000457 


SAVE 


000455 


SCAN 


000655 


SOCP 


000016 


SOM 


000441 


SOTA 


Q00021 


ST 


000540 


STPC 


000775 


STRT 


000633 


SWCH 


000704 


TEST 


000306 


TF35 


000033 


TPON 


000410 


TRN$ 


000353 


WAI r 


000602 


WD 


000454 


WDCT 


000447 


WORD 


000715 


XOF 


000267 


XOFF 


000442 


Z 


000443 


ZCNT 


000450 


ZH7 


000237 














0000 


WARNING OR 


ERROR 


FLAGS 










DAP- 16 MOD 2 


REV, 


06-28- 
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* NAME: (PAt-AP) 



DOC. 701*631 1000:-' 



REV. H ORDER M-1051 



PAGF 



18 



NAME: (PAL-AP) 


467 


Ai)Cl 


468 


AUC2 


191 


3EGN 


276 


ttGBL 


559 


AL2 


491 


BLCT 


582 


8UMP 


474 


CI 


649 


CHAR 


374 


CHEK 


331 


CKLA 


495 


CKSM 


501 


CODE 


231 


CONT 


613 


DATA 


32 7 


DECD 


444 


OONE 


476 


EASR 


478 


EBRP 


345 


ENBL 


586 


ENDT 


235 


EPNC 


584 


EROR 


489 


FADO 


337 


GO 


224 


HISP 


408 


HOB 


674 


LI 


675 


12 


676 


L'3 


677 


L4 


490 


LADD 


252 


LDR 


238 


lEAu 


245 


LLOP 


465 


LUAO 


386 


LOOP 


295 


MOVE 


483 


N120 


482 


rfco 


480 


N6 


481 


NBL1 


484 


NBL2 


496 


NDX 


321 


NZZZ 


437 


OK 


267 


ORUB 


44 6 


P 


477 


PA5R 


479 


PBkP 


451 


Ph 


452 


PN88 



DOC. 70100311000 
419 

420C 421 428C 
445J 

208C 272J 353J 

481 554 

232C 285 287C 



REV. H 
433 



467 

254C 

640J 

336J 

312J 

286C 

355 

190C 

215J 

627J 

303J 

373J 

203 

227 

302J 

571J 

204C 

579J 

193C 

304J 

218J 

414J 

661 

663 

666 

667 

196C 

237J 

244C 

21'IC 

259 

290J 

362J 

326J 

239 

283 

277 

257 

264 

240C 

307J 

212C 

214C 

213C 

205 

229 

261J 

260C 



567J 
641J 



297 

357C 

197 



330C 



320J 
574J 
228C 

288 
324J 



333 
251J 



314J 
392J 
34 1J 



248C 
423J 
450J 



266J 
262C 



568 
642J 



2*9C 

361 
368 



3S5J 



58 1J 604 J 61 2 J 



315 317C 350 



295C 



30$ 310C 331 



252J 
325J 



271J 367J 



340J 351J 354J 



258C 



453J 



458J 
263C 



265C 278C 456C 



454J 



455C 457J 



* NAME: (PAL-AP) 



DQC. 70180311000 



REV, H 



ORDER # M-1051 



PA6F 



26 



242 


PNC 


243 


279J 








412 


PNCH 


389J 


390J 


391 J 


443J 




494 


PNCT 


284C 


300C 


3UC 






502 


PON 


201C 


220C 


225C 


460 




503 


RUB 


202C 


222C 


226C 


463 




49 f > 


5AVA 


416C 


430 


432C 


435 


497 


500 


SAVB 


418C 


42$ 








49b 


SAVE 


293 
442C 


394C 


400C 


403 


*0$C 440 


60b 


SCAN 


569 


593J 








203 


SOCP 


223J 










486 


SOM 


280 










206 


SQTA 


230J 










510 


ST 


481 


485 








679 


STPC 


484 


565 








587 


STRT 


583J 










628 


SWCH 


255C 


613J 


636J 


645C 




393 


TEST 


387J 


402C 


407J 






216 


TF35 


199J 










459 


TPON 


206C 

366J 


207C 
466J 


236J 


270J 


2 7.6 J 864. 


430 


IRNS 


427J 










562 


aAIT 


484 


672J 








497 


aD 


32K 


339 








492 


aUCT 


250C 


296C 


309C 


349 


360 


63/ 


WORD 


256C 


615J 


629J 


648J 




378 


XQF 


209C 
385J 


210C 


352 J 


363J 


365J 37?. 


487 


XOFF 


379 










48o 


I 


234C 


291 


346C 






493 


2CNT 


233C 


292C 


30 0C 


313 


319C 32? 






328 


338C 


345 


348C 


359C 374 






395 










354 


ZNZ 

=• 1000 

=•100000 

=•167000 

=•171000 

=•174000 

= •200 

= •22 

= •221 

= •222 

=•36000 

= •37 


376J 

658 

388 

660 

657 

655 

410 

605 

597 

219 

406 

409 


377J 
664 

431 
417 










= •3/7 


221 


267 


382 


424 






= •52 


253 












= -1 


39b 












= 1 


289 


332 


399 








= *: 


616 










97 


SYMBOLS 
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687 


RECORDS 












1 
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